tt a tt St Ht tt HH HH HH Ha 
tt a tt a a tt i 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


tt tt tt st 4 Ht Ht Ht Ht Ht Ht HH HH 
AAA a 
| LE) 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F I LE**1D**MTHDMINI 


a4 


“4344 SH Ht SH St Ht Ht Ht Ht 
aA HHH Ht Ht Ht Ht Ht 


be 
| dame 
(bs as es Baas bee Be beat Bd bn Ge Ee ee Pens Be 
ea 
es be 


fw 
Cadena 
Be De a be bs be bs be Dn Bs hs an a 


ae 
bo oe 


i mamed 

ot 

ts me 
os 
oe 


ts bs bt Ot Oe De Ps Be Os hs Os bs 
Ot bs Os ss De te ee De 


he 
eR ee a a st 


ad ad a Hd 3 2 ss ss 
a 
a 


iL ondamml 
— ee 
1 ela 
eS - 
a 


“ 
T 


THSOMIN1 

able of contents 
(2) 5 
tg} ; 
(4) 2 


HIS 
DEC 
MTH 


DMIN1 function 


TORY ; Detailed Current Edit History 
Ha 
DMIN 


16-SEP-1984 01:18:43 VAX/VMS Macro V04-00 


Page 


—— eee ee —_—— _ — - 


MTHSDMIN1 DMIN1 function 16-SEP-1984 01:18:43 VAX/VMS Macro v04-00 Pa 
1-002 gr sea eRe 943833 PATANTS Bec ce veer Oe ans1 PaO" 
TITLE MTHSDMINT DMIN1 function 
"IDENT /1-002/ : File: MTHDMIM1.MAR 


DARA ARARRAARRRAAAAARAARAALALAALALELELELA LE SASSE SESE ES ERE REAR EASES EEE ERE S EEE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:® ® 
: we 
:® ® 
® ® 
:® a 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
j* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
© OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE 1S HERESY = 
:* TRANSFERRED. : 
:* ® 
;® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:® CORPORATION. . 
® * 
® * 
® ® 
*® & 
*® ® 
:® * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARRRRARABAAAAAAASASLARASLALERLASALASESERAALALASAS ALAR ARREARS RS RAR RASA SASS SO 


: FACILITY: MATH LIBRARY 
; : ABSTRACT: 
: This module contains routine MTHSDMIN1: 


Return the smaller of n double-precision floating-point 
numbers. 


; VERSION: 0 
HISTORY: 


; ; AUTHOR: : 
Jonathan M. Taylor, 14-JUL-77: Version 0 


: MODIFIED BY: 
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»SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 0 of MTHSDMIN1 


9-4 = Remove MTHSFLAG_JACKET. TNH 26-Juiy-78 
-001 = Update version number and copyright notice. JBS 16-NOV-78 
1-002 = Add "_"' to the PSECT directive. JBS 22-DEC-78 
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"S$Eb=198e 11:28:20 EAtMnTE SAC 
-SBTTL DECLARATIONS 


; INCLUDE FILES: 
; oerr.mar 


; EXTERNAL SYMBOLS: 
; NONE 


; MACROS: 
; NONE 


; PSECT DECLARATIONS: 


-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


; EQUATED SYMBOLS: 
; NONE 


; OWN STORAGE: 
NONE 


| 
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DMIN! function ab atts 1 91:18:63 AX/VMS Macro V04 
6-SEP-19 2:22:20 (CMTHRTL.SRCIMTHDMIN] .MAR; 1 (4). 


MTHSDMINI 4 11 
-SBTTL MTHSDMINI 
:+4 

hls DESCRIPTION: 


ty ong the minimum of nm arguments, n is greater than or equal 
o 1. 


SSsssssssss 


SOSOOOOOOSOSOOOOOOSOOSOSOS: 
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; CALLING SEQUENCE: 
; Minimum.wd.v = MTHSDMIN1 ({arg.rd.r)) 


; INPUT PARAMETERS: 
; The mn parameters are double-precision floating point values 
and are cali-by-reference. 


Oooo 
ooocoo 


OUTPUT PARAMETERS: 
3 NONE 


; IMPLICIT OUTPUTS: 
NONE 


Cooooooooooo 


t IMPLICIT INPUTS: 
3 NONE 

: COMPLETION CODES: 
3 NONE 


else ignore it 


Ww 
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TSTL (AP) + 
SOBGTR R2, 2$ return if arg count exausted 
RET with min in RO/R1 
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0 
0 
000 
B28 
00 : 
000 ; SIDE EFFECTS: 
O08 Reserved Operand exception can occur. 
4 
4 ‘oo 
0004 090 ENTRY M®THS$DMINI, “M<R2> 
9A 000 MOVZBL (AP), R2 3; R2 = arg count 
3 000 TSTL (AP) + ; AP -> first arg 
0 838 1$ MOVD a(AP)+, RO ; RO/R1 = trial min 
11 0 BRB ; check arg count ; : 
000 2s CMPD = «=©a@0(AP), RO ; if this arg is less than trial min 
: BLSS i$ z; then it becomes new trial min 
1 3 
1 3 
1 
1 
1 
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~END 


MTHSDMINI DMIN1 function i a i St 9 1:18:35 aes Macro von oY Page 5 mT 
Symbol table 6-SEP=1984 11:22:2 MTHRTL.SRCIMTHDMIN1 .MAR; 1 (4). Ta 
MTHSOMINI 00000000 RG 01 
geese et ene ere see e oa > 
: Psect synopsis ! 
bere e eens eee eo wad | 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) 89 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 0000001 ( 26.) .e Won PIC USR <cON REL LCL SHR EXE RD NOWRT NOVEC LONG 
¢eeeeecooecn eeoeecerseremnen ae $ 
: Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 3} 0:00:00.0 8:08 89-2 
Command processing 1246 0: 3: 873 0: . 0 $8 
1 pea % §:00:00:0 0:00:00:00 
m able sor :00:00. : ‘ 
Pass 2 38 §:00:00:31 09:09 07-33 
Symbol table output 0:00: 3-3) 3:8 0.01 
Psect synopsis output 0:00:00. 0:00:00.02 
Cross-reference output 0:00:00.0 0:00 89-98 
Assembler run totals 26 0:00:01.1 00:00:07.7 


1403 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 1 non-local and 3 local symbols. 
140 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


were ewe ener nee renew een nen ee & 


+ 
! Macro Library statistics ! 
+ + 


The working set Limit was 900 pages. 
Macro Library name Macros defined | 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 | 
0 GETS were required to define 0 macros. | 
There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHDMIN1/OBJ=OBJ$:MTHDMIN] MSRCS$:MTHDMIN1/UPDATE=(ENHS:MTHDMIN1 ) 
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